Public Class GestorCuenta

    Public Function identificarEstudiante(ByVal username As String, ByVal clave As String) As String
        Return MultiEstudiante.identificarEstudiante(username, clave)
    End Function

    Public Function buscarNotas(ByVal idGrupo As Integer, ByVal idEstudiante As String) As DataTable
        Dim c As New Integer
        Dim estudiante As Estudiante
        estudiante = MultiEstudiante.levantarEstudianteXGrupo(idGrupo, idEstudiante)

        Dim dt As New Data.DataTable

        dt.Columns.Add("Nombre")

        'agrega las columnas de rubros
        Dim componente As ComponenteEvaluacion = estudiante.Notas
        For Each comp As ComponenteEvaluacion In componente.ListaRubros
            If comp.Nombre <> "Nombre" Then
                dt.Columns.Add(comp.Nombre)
            End If
        Next

        'agregamos una columna de nota total
        dt.Columns.Add("NOTA")

        dt.Rows.Add()
        dt.Rows(0).Item("Nombre") = estudiante.Nombre & " " & estudiante.PrimerApellido & " " & estudiante.SegundoApellido

        For c = 1 To componente.ListaRubros.Count

            dt.Rows(0).Item(c) = componente.ListaRubros(c - 1).CalcularNota

        Next
        dt.Rows(0).Item(c) = componente.CalcularNota()


        Return dt
    End Function
End Class
